home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE URLs 1.xpl < prev    next >
Text File  |  2001-10-27  |  4KB  |  89 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="URLs Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.5"
  8. "TEXT 1"="Search Page"
  9. "TEXT 2"="Toolbar Search"
  10. "TEXT 3"="Radio Station"
  11. "TEXT 4"="Online Support"
  12. "TEXT 5"="Default Page"
  13. "DATA 1"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  14. "DATA 2"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  15. "DATA 3"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  16. "DATA 4"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  17. "DATA 5"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  18. "DESCRIPTION 1"="With the URL for "Page" you can change the URL that will be opened if you select "Start"|"Search"|"The web" or click "Go to"|"Seach page" inside Internet Explorer (default is http://www.microsoft.com/isapi/redir.dll?prd=ie&ar=iesearch)."
  19. "DESCRIPTION 2"="With the URL for "Toolbar" you can change the URL that will be opened if you click the Search Button on the toolbar of Internet Explorer."
  20. "DESCRIPTION 3"="With the URL for "Radio Station" you can change the URL that will be displayed if you click the "Radio station Guide" button on the "Radio" toolbar (default is http://windowsmedia.com/mediaguide/default.asp). NOTE: Internet Explorer 5.x only."
  21. "DESCRIPTION 4"="With the URL for "Online Support" you can change the page that will be displayed when you click on Help > Online Support in Internet Explorer."
  22. "DESCRIPTION 5"="With the URL for "Default Page" you can specify the address that appears when you click on 'Use Default' in Internet Options under 'Home Page'. This will either be the home page of your ISP or a page on Microsoft's web site, but you can change it here."
  23. "DESCRIPTION 6"="For all entries, you can either select a local HTML file or enter an URL directly, like http://www.hotbot.com."
  24. "DESCRIPTION 7"="NOTE: To have the default URLs restore, clear the fields."
  25. "AUTHOR"="Xteq Systems"
  26. "CONTACTURL"="http://www.xteq.com"
  27. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  28. "COMMENT 1"=" "
  29. "COMMENT 2"="Thanks to Roxarius [mailto:rosarius@tin.it] for the HKCU bug notice!"
  30.  
  31. sP1="HKCU\Software\Microsoft\Internet Explorer\Main\"
  32. sP2="HKCU\Software\Microsoft\Internet Explorer\Help_Menu_URLs\Online_Support"
  33. sP3="HKLM\SOFTWARE\Policies\Microsoft\WindowsMediaPlayer\DefaultURLFindNewStations" 'string - "http://webevents.microsoft.com/radiobar.asp"
  34. sP4="HKLM\Software\Microsoft\Internet Explorer\Main\Default_Page_URL"
  35. sV1="Search Page"
  36. sV2="Search Bar"
  37.  
  38. Sub Plugin_Initialize 
  39.  if RegPathExists("HKCU\Software\Microsoft\Internet Explorer") then
  40.   s=RegReadValue(sP1 & sV1)
  41.   Call SetUIElement(1,s)
  42.  
  43.   s=RegReadValue(sP1 & sV2)
  44.   Call SetUIElement(2,s)
  45.  
  46.   s=RegReadValue(sP3)
  47.   Call SetUIElement(3,s)
  48.  
  49.   s=RegReadValue(sP2)
  50.   Call SetUIElement(4,s)
  51.  
  52.   s=RegReadValue(sP4)
  53.   Call SetUIElement(5,s)
  54.  else
  55.   Disable
  56.  end if
  57. End Sub
  58.  
  59. Sub Plugin_CheckData(ElementIndex)
  60. End Sub
  61.  
  62. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  63.  Call DoWork(1,sP1 & sV1)
  64.  Call DoWork(2,sP1 & sV2)
  65.  Call DoWork(3,sP3)
  66.  Call DoWork(4,sP2)
  67.  Call DoWork(5,sP4)
  68.  
  69.  Call Logoff()
  70. End Sub
  71.  
  72. Sub DoWork(NUM,REG)
  73.  s=GetUIElement(NUM)
  74.  if len(s)>0 then
  75.   Call RegWriteValue(REG,s,1)
  76.  else
  77.   s=RegReadValue(REG)
  78.   if IsEmpty(s)=false then
  79.    Call RegDeleteValue(REG)
  80.   end if
  81.  end if
  82. End Sub
  83.  
  84. Sub Plugin_Terminate 
  85. End Sub
  86.  
  87.  
  88.  
  89.